0 PRINT"[147]"TAB(14)"WORD ORDER"
1 REM ==================================
2 REM    COMMODARES PROBLEM #58-4 :
3 REM       WORD ORDER
4 REM    SOLUTION BY
5 REM       CARLOS CENTENO
6 REM ==================================
10 INPUT "ENTER 2 WORDS";A$(1),A$(2): PRINT
20 FOR X=1 TO 2: Z=65
30 FOR Y=1 TO LEN(A$(X))
40 IF MID$(A$(X),Y,1)=CHR$(Z) THEN B$(X)=B$(X)+MID$(A$(X),Y,1)
50 NEXT Y: IF LEN(B$(X))<>LEN(A$(X)) THEN Z=Z+1: GOTO 30
60 NEXT X: PRINT A$((B$(1)<B$(2))+2)" IS FIRST."